home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.024.Teach / teach.p / uGlobals.inc.p < prev    next >
Encoding:
Text File  |  1990-06-24  |  827 b   |  28 lines  |  [TEXT/MPS ]
  1. {**********************************************************************
  2. {*
  3. {* Teach Globals -- Version 3.0  (implementation)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1990
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the code which intializes the global variables 
  12. {* used by the busy box program.
  13. {*
  14. {**********************************************************************}
  15. {$R-}
  16.  
  17.  
  18.  
  19. PROCEDURE Debug;  INLINE $0000;
  20.  
  21.  
  22. procedure InitGlobals;
  23.     begin   {of InitGlobals}
  24.         staggerCount := 0;
  25.            quitFlag     := false;                  { Done flag will be set by Quit item. }
  26.            event.wmTaskMask := $001FFFFF;          { Allow TaskMaster to do everything. }
  27.            lastWindow         := GrafPortPtr(-1);        { Init this for CheckFrontW, forces it to run first time}
  28.     end;    {of InitGlobals}